home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / memdumpdemo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  25 lines
  1. 1 POKE53272,23:POKE53281,12:PRINT"[147][144]         [205]EMORY [196]UMP [196]EMO[146]":POKE53280,12
  2. 2 FORI=828TO965:READA:SUM=SUM+A:POKEI,A:NEXT
  3. 3 IFSUM<>14063THENPRINT"ERROR IN CHECKSUM":END
  4. 10 PRINT"[193]DDRESS OF START OF BLOCK TO DISPLAY":INPUTBE:IF(BE<0)OR(BE>65535)THEN10
  5. 20 PRINT"[193]DDRESS OF END OF BLOCK TO DISPLAY":INPUTEN:IF(EN<0)OR(EN>65535)THEN20
  6. 30 IFEN<=BETHENPRINT"[197]ND ADDRESS MUST BE HIGHER THAN START!":GOTO20
  7. 40 BH=INT(BE/256):BL=BE-256*BH
  8. 60 EH=INT(EN/256):EL=EN-256*EH
  9. 70 PRINT"   [213]SE [211][212][207][208][146] KEY TO HALT A LISTING":FORI=1TO2000:NEXT
  10. 80 POKE3,BL:POKE4,BH
  11. 90 POKE5,EL:POKE6,EH
  12. 100 SYS828:PRINT"RUN[145][145][145]":END
  13. 828 DATA 169,13,32,210,255,32,225,255,240,16,165,6
  14. 840 DATA 197,4,144,10,208,9,165,5,197,3,144,2
  15. 852 DATA 208,1,96,165,4,32,174,3,165,3,32,174
  16. 864 DATA 3,169,58,32,210,255,169,32,32,210,255,162
  17. 876 DATA 7,160,0,177,3,32,174,3,169,32,32,210
  18. 888 DATA 255,200,202,16,242,169,42,32,210,255,162,7
  19. 900 DATA 160,0,177,3,32,162,3,32,210,255,200,202
  20. 912 DATA 16,244,24,169,8,101,3,133,3,169,0,101
  21. 924 DATA 4,133,4,76,60,3,72,41,127,201,32,104
  22. 936 DATA 144,1,96,169,46,96,72,74,74,74,74,32
  23. 948 DATA 185,3,104,41,15,201,10,176,4,9,48,208
  24. 960 DATA 2,105,54,76,210,255
  25.